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NOTICIAS 



PROGRAMAS VIC-20 

Como consecuencia de multiples llamadas telefonicas 
recibidas en MICROELECTRONICA Y CONTROL 
preguntando por los programas del VIC damos en este numero 
una lista de ellos junto con algunos datos de interes 



Ref. Programa 



P.V.P. 
Ptas. 



Ref. Programa 



P.V.P. 
Ptas. 



Ref. Programa 



P.V.P. 
Ptas. 



Libro curso de introduction al Basic 

Parte I 2.500 

Con dos cintas o un disco. 

Libro curso de introduction al Basic 

Parte II 2.500 

Con dos cintas o un disco. 

D-1001 Agenda 5.000 

Necesita ampliacion de 8K. 

D-1002 QSL 3.000 

Necesita ampliacion de 8K. 

D-1003 Test Demo 3.000 

D-1004 Assembler 5.000 

Necesita ampliacion de 3 K. 

CINTAS PARA CASSETTE 

C-125 Hangmath 1.500 

No necesita ampliacion. 
C-128 Programacion lineal 500 

No necesita ampliacion. 
C-129 Matrices 500 

No necesita ampliacion. 
C-130 Caja 1.500 

Necesita ampliacion de 16K 
C-131 Regresiones I 500 

No necesita ampliacion. 
C-132 Regresiones II 500 

No necesita ampliacion. 
C-133 Estadistica I 500 

No necesita ampliacion. 
C-134 Estadistica II 500 

No necesita ampliacion. 
C-135 Sistemas 500 

No necesita ampliacion. 
C-136 Dieta 1.500 

Necesita ampliacion de 8K. 
C-137 Integration 500 

No necesita ampliacion. 
C-139 Vicalc 1.500 

No necesita ampliacion. 
C-140 Skymath 1.500 

Necesita ampliacion de 3K. 
C-141 Space Division 1.500 

Necesita ampliacion de 3K. 
C-142A Interface y programa CW 25.000 

No necesita ampliacion. 
C-142B Programa RTTY 2.500 

No necesita ampliacion. 
C-143 English Language 2.000 

Necesita ampliacion de 8K. 
C-144 Quiz Master 2.000 

Necesita ampliacion de 8K. 
C-145 Mastermind 3.000 

Necesita ampliacion de 8K. 

Ademas para esta cassette 
se estan preparando los si- 
guientes temas: 

C-145A Gastronomia 1.500 

C-145B Musica 1.500 

C-145C Cinematografia 1.500 



C-145D Deportes 1.500 

Etc... 
C-201 Codemaker 1.500 

No necesita ampliacion. 
C-202 Wall Street 1.500 

No necesita ampliacion. 
C-203 Simple Simon 1.500 

No necesita ampliacion. 
C-204 Damas 1.500 

No necesita ampliacion. 
C-205 Alien Blitz 1.500 

No necesita ampliacion. 
C-206 Kosmic Kamikaze 1.500 

Necesita ampliacion de 3 

u 8K, dado que hay dos 

versiones del juego. 
C-207 Star Wars 1.500 

No necesita ampliacion de 

memoria. 
C-208 Amok 1.500 

No necesita ampliacion. 
C-209 The Alien 1.500 

Necesita ampliacion de 3K. 
C-210 Invader Fall 1.500 

No necesita ampliacion. 
C-211 A-MAZ-ING 1.500 

Necesita ampliacion de 3K. 
C-212 Math-Hurdler, Monster 

Maze 1.500 

No necesita ampliacion. 
C-213 Golf 1.500 

Necesita ampliacion de 3K. 
C-215 VIC GAMES II 1.500 

No necesita ampliacion. 

JUEGOS EN CARTUCHO 

1904 Super Slot 4.500 

Se juega por teclado o con 
Joystick. 

1906 Super Allien 4.500 
Se juega por teclado o con 
Joystick. 

1907 Jupiter Lander 4.500 
Se juega por teclado. 

1908 Draw Poker 4.500 
Se juega por teclado. 

1901 Avenger 4.500 

Se juega por teclado o con 
Joystick. 

1909 Road race 4.500 
Se juega por teclado. 

PROGRAMAS PROFESIONALES 

Z0001 Contabilidad S/V-20 

Stock-VIC 
V0501 Control peliculas para 

Video-Clubs 
Z0601 VIC/Entrapunt 

Nota: Para mas detalles so- 
bre estos programas con- 
sular. 



NOVEDADES ENER01983 



PROGRAMAS EN CINTA: 



C-146 

C-216 
C-217 
C-218 
C-219 



Matematicas 1 (nivel BUP) 2.000 
Necesita ampliacion de 8 
6 16K. 



Escape 

No necesita ampliacion. 

Biocomp 

Necesita ampliacion de 3K. 

Cubo VIC 

No necesita ampliacion. 

Type a tune 

No necesita ampliacion. 



PROGRAMAS EN CARTUCHO: 



1911 
1902 

1919 

1924 

C-400 
C-401 
C-402 
1912 

1909 

C-403 

C-404 



The sky is failllng 

Es necesario utilizar Paddle. 

Star battle 

Se juega con teclado o con 
Joystick. 

Sargon II chess 

Se juega con teclado o con 
Joystick. 

Omega race 

Se juega con Joystick. 



1.500 
2.000 
1.500 
2.000 

4.500 
4.500 

4.500 

4.500 



VIC FORTH 
VIC STAT 
VIC GRAPH 



consultar 
consultar 
consultar 

4.500 



Mole attack 

Solo para teclado. 

Radar ratrace 4.500 

Se juega con teclado o con 

Joystick. 

WORDCRAFT-VIC 42.500 

(compatible series CBM8000 
y CBM 4000) 

VIC SCREEN MASTER 10.000 



PROGRAMAS EN DISCO 

D-1005 English Language 2.500 

Necesita ampliacion de 8K. 

D-1006 Quiz master 2.500 

Necesita ampliacion de 8K. 

D-1007 Matematicas I 2.500 

(nivel de BUP) 
Necesita ampliacion de 8K. 

D-2000 VIC WRITER 13.000 

Necesita ampliacion de 8K. 

D-2001 SIMPLICALC 13.000 

Necesita ampliacion de 8K. 

D-2002 VIC FILE 13.000 

Necesita ampliacion de 8K. 
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EDITORIAL 



la tercera solucion 

commodore 



Hemos editado, recientemente, las 
Carpetas de Programas Profesionales 
para equipos COMMODORE, dos de 
las cuales ilustran la portada de este 
numero. Aunque orientadas a servir 
como herramientas de trabajo a nues- 
tros distribuidores, estan pensadas 
para facilltar la consulta y election de 
las aplicaciones necesarias para cada 
usuario en particular. 

Despues de mas de 4.000 instalacio- 
nes en Espana, nuestra experiencia 
nos dice que la mayoria de usuarios lo 
que realmente buscan no es un "orde- 
nador" sino una solucion, y esta consta 
de tres partes insustituibles: el equipo, 
los programas, y la asistencia. 

En cuanto al equipo, poco vamos a 
extendernos ya que es suficientemente 
conocido por su fatilidad de manejo, su 
solidez y la baja tasa de I 'alios produci- 
dos. Solo resaltar la continuidad y pro- 
gresion mantenidas por COMMODO- 
RE, desde su famoso PET, to que le 
coloca en el numero uno en ventas, no 
solo en nuestro pais sino tambien en el 
Mundo. En este momento posee la 



mas extensa gama de equipos con los 
que podemos configurar sistemas con 
capacidades desde 32 K hasta 96 
Kbytes en RAM y desde 1 70 K hasta 
9 Mbytes en disco. 

Los otros dos puntos, programas, y 
asistencia, van muy relacionados con 
la figura del distribuidor COMMODO- 
RE, persona que contacta, atiende, re- 
para, programa, instala, etc.; a traves 
de sus distintos departamentos. Gra- 
cias a que TODOS nuestros distribui- 
dores disponen de departamentos tec- 
nicos de programacion y mantenimien- 
to, podemos dar el mejor y mas reparti- 
do servicio. 

En el entorno de la informatica las 
distintas marcas plantean dos lineas 
bien distintas: las que opinan que el 
cliente debe adaptarse a los programas 
estandar y las que creen que para cada 
cliente es necesario realizar la aplica- 
cion a medida (Haves en mano). 

Las primeras acostumbran a tener 4 
o 5 programas, solamente, cuya cuali- 
dad de ser estandar quiza no sea el 
momento de evaluar. Mientras que las 



segundas invierten en cada instalacion 
3 6 4 meses, en el mejor de los casos, 
en la realization de los paquetes de 
programas. 

Debido a la preparation y organiza- 
tion del equipo tecnico de nuestra Red 
de Distribuidores, COMMODORE pue- 
de afrontar cualquiera de ellas y, con la 
presentation de las Carpetas de Pro- 
gramas, ademas quiere aportar una 
tercera solucion, suma de las ventajas 
de las anteriores y con los menos de- 
fectos posibles: eliminar la necesidad 
de que el cliente se adapte al programa 
y reducir el tiempo de espera para pro- 
gramas "particulares" de nuestra biblio- 
teca, a una pura puesta en marcha. 

A este fin se ban creado las Carpetas 
de Programas para dar a conocer que 
programas existen, que ya funcionen y 
que procesos detallados efectuan, 
siendo una recopilacion de la extensa 
biblioteca de programas, tanto realiza- 
dos por Microelectronica y Control 
S.A., como por nuestros distintos distri- 
buidores, en y para Espana. 

Estan a disposition de cualquier 
usuario de sistemas de gestion que 
quiera ampliar el rendimiento de su 
equipo o para aquellos que su primer 
contacto con COMMODORE ha sido el 
VIC-20 y necesitan "algo" de mas en- 
vergadura para su pequeho negocio. 

(Departamento de Difusion 
Microelectronica y Control S.A.) 



PROGRAMAS PROFESIONALES (Tomo I) 


PROGRAMAS PROFESIONALES (Tomo II) 


Ref. 


Titulo 


Ref. 


Titulo 


DMA-401 


Base de datos 


DDC-403 


Gestion Comercial 


DMA-402 


Contabilidad 


DDA-409 


Colegios 


DMC-413 


Wordcraft 


DMC-416 


Gabinete Odontologico 


DMC-461 


VisiCalc 


DDC-476 


Petspeed 


DMA-467 


Assembler 


DDA-809 


Colegios 


DMA-801 


Base de Datos 


HMC-872 


Placa de Alta Resolucion 


DMA-802 


Contabilidad 


DDC-876 


Petspeed 


DMA-803 


Gestion Comercial 


DIA-4301 


Compra-venta de vehiculos 


DMA-804 


Paso de Gestion Comercial a Contabilidad 


DIA-4302 


Facturacion con bascula 


DMA-807 


Etiquetas 


DIA-8301 


Consignatarios de pescado 


DDA-810 


Nominas 


DIC-8304 


Componentes 


DMC-813 


Wordcraft 


DIA-8305 


Stock zapateria 


DMC-815 


Contabilidad 4N 


DIA-8307 


Boutiques 


PDS-817 


Renta-8X 


DIS-8308 


Hosteieria 


DDS-818 


Fincas.H 


DIC-8310 


Agentes de quinielas 


DDC-819 


SADIC 


DIC-8311 


Agenda 


DMC-861 


VisiCalc 


DIA-8312 


Medios de Publicidad 


DMA-867 


Assembler 


DIC-8313 


Macro-Stocks 


DMC-868 


Master 


DIA-8314 


Control de Produccion y Personal 


EMC-871 


Edex 


DIC-8315 


Empresas de Autoventas 


DMC-877 


Protector 


DIC-8316 


Facturacion Empresas de Limpieza 


DIC-8302 


Direccion 


DIC-8317 


Rentas 


DIC-8303 


Facturacion de Industrias Carnicas 


DIC-8318 


Administracion Fincas 


DIC-8306 


Control de Socios 


DIA-8319 


Facturacion con bascula 


DIC-8309 


Produccion Industrial 


DIC-8320 


Colegios Profesionales 
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VENTANA CBM 



viaje a 
profundidades 
la zona 



ML I tema de este mes trata de como 
trabaja el sistema con los programas. 
Cuando escribimos una instruccion 



por JOAN CARLES SAMARANCH 

como la «interpreta» el BASIC. Para 
entender todo lo que vamos a comen- 
tar nos referiremos a la tabla 1. 



ABREVIACIONES 

Lo de las abreviaciones es poco 
conocido pero muy practico para po- 
der incrementar la velocidad de pro- 
gramacion y para poder constmir li- 
neas de programa de mas de 80 co- 
lumnas (referente al listado). 

Por ejemplo, la instruccion PRINT 
se puede abreviar escribiendo «?». 
Escribamos la linea: 10 ? y lislemos 
el programa. Veremos 10 PRINT. 

Para el resto de instrucciones indi- 
camos, en la labia 1, en minuscula el 
caracter a escribir en mayuscula ( + 
SHIFT) que, en el caso de trabajar en 
caja alta (mayusculas/graficos), apa- 
recera el grafico correspondiente en 
pantalla. En caja baja (minusculas/ 



"TABLA 1 


Instruccion 


Abreviacion 




Token 


Instruccion 


Abreviacion 




Token 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


END 


En 


128 


80 


SPC( 


Sp 


166 


A6 


FOR 


Fo 


129 


81 


THEN 


Th 


167 


A7 


NEXT 


Ne 


130 


82 


NOT 


No 


168 


A8 


DATA 


Da 


131 


83 


STEP 


STe 


169 


A9 


INPUT# 


In 


132 


84 


+ 




170 


AA 


INPUT 


INp 


133 


85 


— 




171 


AB 


DIM 


Di 


134 


86 


* 




172 


AC 


READ 


Re 


135 


87 


/ 




173 


AD 


LET 


Le 


136 


88 


t 




174 


AE 


GOTO 


Go 


137 


89 


AND 


An 


175 


AF 


RUN 


Ru 


138 


8A 


OR 


Or 


176 


B0 


IF 


If 


139 


8B 


> 




177 


B1 


RESTORE 


REs 


140 


8C 






178 


B2 


GOSUB 


GOs 


141 


8D 


< 




179 


B3 


RETURN 


REt 


142 


8E 


SGN 


Sg 


180 


B4 


REM 


REm 


143 


8F 


INT 


INt 


181 


B5 


STOP 


St 


144 


90 


ABS 


Ab 


182 


B6 


ON 


On 


145 


91 


USR 


Us 


183 


B7 


WAIT 


Wa 


146 


92 


FRE 


Fr 


184 


B8 


LOAD 


Lo 


147 


93 


POS 


POs 


185 


B9 


SAVE 


Sa 


148 


94 


SQR 


Sq 


186 


BA 


VERIFY 


Ve 


149 


95 


RND 


Rn 


187 


BB 


DEF 


De 


150 


96 


LOG 


LOg 


188 


BC 


POKE 


Po 


151 


97 


EXP 


Ex 


189 


BD 


PRINT # 


Pr 


152 


98 


COS 


COs 


190 


BE 


PRINT 


? 


153 


99 


SIN 


Si 


191 


BF 


CONT 


Co 


154 


9A 


TAN 


TAn 


192 


CO 


LIST 


Li 


155 


9B 


ATN 


At 


193 


C1 


CLR 


CI 


156 


9C 


PEEK 


Pe 


194 


C2 


CMD 


Cm 


157 


9D 


LEN 


Le 


195 


C3 


SYS 


Sy 


158 


9E 


STRS 


STr 


196 


C4 


OPEN 


Op 


159 


9F 


VAL 


Va 


197 


C5 


CLOSE 


CLo 


160 


A0 


ASC 


As 


198 


C6 


GET 


Ge 


161 


Al 


CHRS 


Ch 


199 


C7 


NEW 


NEw 


162 


A2 


LEFTS 


LEf 


200 


C8 


TAB( 


Ta 


163 


A3 


RIGHTS 


Ri 


201 


C9 


TO 


To 


164 


A4 


MIDS 


Mi 


202 


CA 


FN 


Fn 


165 


A5 
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mayusculas), el texto a escribir es 
precisamente al reves de lo indicado 
en la tabla 1, cambiando las mayuscu- 
las por minusculas y viceversa. 

«TOKEN'S» 

En el ejemplo anterior el sistema 
no guarda las letras: P, R, I, N y T, 
correspondientes a la instruccion si 
no que guarda un solo byte, llamado 
«token», que codifica el tipo de ins- 
truccion. En la tabla 1 vemos el nume- 
ro que corresponde a cada instruc- 
cion. Debemos resaltar que existen a 
partir del valor 128 ($80), o sea el bit 
2~7 a uno. 

ESTRUCTURA INTERNA 

El «programa» de ejemplo es: 

a r\ ppft/1 ****** ft*** 

Despues de crear esta linea vamos 
al monitor: SYS1024, y visualizamos 
el principio de la zona de programas 
con la instruccion: 

.M 0400 0410 

apareciendo lo siguiente: 

0400 00 1 1 04 0A 00 8F 2A 2A 
0408 2A 2A 2A 2A 2A 2A 2A 2A 
041 00 00 00 AA AA AA AA AA 

Vamos a analizar estos valores. En 
la posicion 1024 (§0400 en hexadeci- 
mal) tenemos el cero inicial; en 1025 
y 1026 tenemos la direccion donde 
empieza la siguiente linea de progra- 
ma; en el formato peso bajo/peso al- 
to, en este caso $0411; en 1027 y 
1028, con el mismo formato, el nume- 
ro de linea de programa que le co- 
rresponde, $00A0 igual a 10 en deci- 
mal; en 1029 esta el «token» corres- 
pondiente a la instruccion REM que 
es $8F; de 1030 a 1039 los diez aste- 
riscos, $2A y, por ultimo, un cero in- 
dicando el final de linea. Por ser un 
programa de una sola linea, los dos 
bytes siguientes, que corresponde- 
rian a la direccion de inicio de la si- 
guiente Ifnea, son cero, indicando fin 
de programa (el siguiente byte ya co- 
rresponded a la zona de variables). 

GENERALIZAC16N 

Lo que hemos visto con un ejemplo 
sencillo puede extrapolarse a cual- 
quien programa. En la figura 1 vemos 
un grafico, general, de la estructura 
de un programa. 

El significado de las abreviaciones 



Start 1025 



1024 




V 








Link 
address 


Line 
No. 


Text 






Link 
address 


Line 
No. 


Text 







Link 
address 


Line 
No. 


Text 







*- END 



Fig. 1 



alii expuestas son: LINK AD, direc- 
cion donde empieza la siguiente linea 
de programa; LINE NO, numero de If- 
nea BASIC asignada, y TEXT, instruc- 
ciones asociadas a esta linea. 



En la ultima linea, lo que corres- 
ponded al LINK AD esta a cero para 
indicar el fin de programa, facilmente 
reconocible por los tres ceros que 
aparecen. _ 



TRANSFERENCE DE PROGRAMAS ENTRE EL VIC Y 
LOS ORDENADORES CBM 4000 Y 8000 

: " • ' : ' '■ ■-;■■■.:■:■:,! ! : : : ; : ■■-.:.. / .' ' " " ; : : : 

equipos y a travel de disco solamente enlre el VIC v la serie 4000. Aparle debe vigilarse la 

' / ■■■'■'■■. ■..■: ■■•■ : ' .:,..:■!■ ■."■., : ..:■.■ : : ■;.■' ' : ; : ■':.'.-..:,■. : . . : ■ - : : : - 

POKEs no fur.cionen de la misma forma. De lodas maneias con los metedos que damos a 

.■■■■■. ■ - 'V : ^ :: ■,.■■■! ..■■■..■■■■■/■.... ; .■■: ■■.■■■ : ' j : ■ ^: : : ■'.-. : 

■ 
4000 v 80OO. En el caso dc giabai el programa con el carlucho de 3K en el VIC los pro- 

cargado desde un VIC sin expansion podemos hacer io siguiente: \j CARGAR EL PRC'GRA 

X X : XX,X . :■'..-• 

;h'S;;S; ■■■ ■;';:*i>f.;.;-\ 'ixxxx. u- i^xxxx. x. ." xxxxxxxxxx, ;■ sxxxs, .xjxxxxxxx..!.j:xxx 
■.. -y ;;>.•.?;; 

Todo ePo debe hacerse resisnendo la leniacion de LISTar hasla haber terminado todo el 
proceso. En caso de haber cargado el programa desde un VIC con mas dc 8K, los pasos I y 

;; :.':-■/::«; ..-.-. ■ :..'.:■ :• -:;s ■■■.•_• •; : , '.■,:"-"■.<;■•--. : - : -xx. :■ -.xx.. :x--.< xtx.x ■ ■■'■■■ XxxxrX 
; ■•-:"... Xj.xxx.XxxXxxx.X.x.x 

■■■■■■■,■•: :■.'.'.'"• :-U' :■...":■:.. • ■!. '. " i '::;;;■' 
••:-•■ ■■■.■■■ - :,■•: ■■■■-.-,..■■■ ::■: ',..... : :r. :,.:■■.■..■ ■■■■ ■ /.,-■ ' ■■■•■i.;. .■..■■■.■.,■■■■.. v. ■. 
.•■■:..■:- •■.:.v,":.. : .<!--,;.-.. ".'-. .;•-. *.- :>■- ■ 'X X: "■.:/'.': x.iL.V ■-;'.<;' "- 1 '.■<:, ~'J jr. '"&(. ' Jryrrj . ',:)':, '■ .' ;;.'■' JJJ-V[ 

'..- --•"• ■■ xx: ?Be j-.;/!:?'':/>.;:«'.c;;-- ,x.>xxxix i x~xxx- ?<■;;. 

[ ^r. ■ X):J '~ . J\Jj:;:J ? ^:;J:^ 
: ■:,X: : - ^ : 
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tratamiento 
de los ficheros de 
acceso directo 
en el VIC-20 



por PERE CARBO 




£\ pesar de que tal vez el VIC-20 sea 
un ordenador personal enfocado de 
cara a aplicaciones recreativas, de 
calculos tecnicos o uso domestico, et- 
cetera, y en la mayoria de estos tipos 
de aplicaciones no vamos a necesitar 
de la ayuda de ficheros que soporten 
nuestra informacion, y menos aun de 
ficheros de acceso directo, que son 
a los que me voy a referir, me voy a 
permitir en las siguientes lineas reve- 
lar algunas experiencias al respecto, 
deseando que a algun usuario que dis- 
ponga de la unidad de disquette y de- 
see trabajar con este tipo de ficheros, 
le puedan ser utiles. 

Como referenda, el capitulo 7 del 
MANUAL DE LA UNIDAD DE DISCO 
en sus paginas 53 a la 59, trata de 
explicar el uso de estas tecnicas. De 
alii estan tomadas las subrutinas que 
mas tarde vamos a ver y ha servido de 
base, para elaborar este trabajo, que 
no pretende ser mas que una simple 
documentacion anexa que amplie, en 
cierto modo, lo alii expuesto, a fin de 
optimizar al maximo esta «herram'ien- 
ta» que nos ofrece el sistema opera- 
tivo de disco del VIC-20. 



PREMISAS - 1 

El uso de estos ficheros que «a prio- 
ri" puede parecer algo engorroso, es, 
sin embargo, totalmente eficaz si se 
les da el tratamiento adecuado. Codi- 
ficando las instrucciones oportunas 
que a continuacion veremos y ayudan- 
donos de una pequena subrutina de 
calculo, obtendremos una direccion fi- 
sica de disco (Pista y Sector) donde 
registraremos la informacion. Mas tar- 
de, para acceder a ella, tan solo ten- 
dremos que recurrir a la misma sub- 
rutina de calculo. 

En primer lugar, nos interesa reser- 



varnos el espacio en disco y crear el 
fichero. Debera preverse el volumen 
del fichero teniendo en cuenta varios 
puntos: 

1° Por el tratamiento del fichero, ca- 
da vez que «escribamos» en el, lo 
vamos a hacer en un sector dife- 
rente, por lo que ganaremos en 
cuanto a espacio en la medida en 
que ocupemos el numero maximo 
posible de los 250 bytes disponi- 
bles que contiene cada sector. Se- 
gun el uso del fichero que se desee 
hacer, puede ser una solucion opti- 
ma recopilar varios registros logi- 
cos en un solo registro fisico. 

2° Aunque se trate de un fichero en 
el que no vayamos a hacer la carga 
inicial de los datos de una sola vez 
sino que vamos a hacerlo paulati- 
namente, debemos crearlo igual- 
mente en funcion del volumen to- 
tal previsto para asi reservarnos 
los sectores correspondientes don- 
de mas tarde ira la informacion. De 
no ser asi, al acceder a una direc- 
cion del disco fuera del espacio 
que previamente hemos reservado, 
podrfamos «machacar» lo que hu- 
biera en esa direccion (programas, 
otros ficheros], lo cual nos daria 
mas de un problema. 



PREMISAS - 2 

Por otra parte, vamos a necesitar 
paralelamente al fichero directo, un 
segundo fichero que nos sirva de indi- 
ce del primero. Este fichero indice se- 
ra de organizacion secuencial y podra 
ser diferente en funcion de como vaya- 
mos a tratar el de acceso directo. 

Si a pesar de tratarse de un fichero 
de acceso directo, la carga inicial de 



este la vamos a hacer de un modo 
secuencial, bastara con que el fichero 
indice contenga un solo registro con 
el numero correspondiente al ultimo 
registro grabado en el fichero directo. 
De este modo, cuando queramos leer 
de el, unicamente deberemos compro- 
bar que no se intenta acceder a un 
registro mayor que el ultimo grabado 
y, del mismo modo, cuando queramos 
grabar mas datos, nos servira de pun- 
tero para saber cual debe ser el si- 
guiente numero de registro. 

Un pequeho ejemplo de esta utiliza- 
cion, podria ser un fichero maestro de 
socios, en el cual los vamos a ir regis- 
trando secuencialmente segun se pro- 
duzca el alta. Vamos a hacer coincidir 
el numero de asociado con el numero 
del registro que ocupan en el fichero 
de forma que el socio n.° 1 ocupara el 
primer registro, el 2° socio el segun- 
do registro y asi sucesivamente. La 
creacion de este fichero seria secuen- 
cial aunque anteriormente hayamos 
creado el fichero en funcion de las pre- 
visiones, para reservarnos el espacio. 
Asi, pues, en el fichero indice tendre- 
mos el numero del ultimo asociado. 
Cuando queramos dar una nueva alta, 
el socio tendra el numero que nos de 
el fichero indice + 1. Sin embargo, el 
tratamiento posterior del fichero, va a 
ser directo. A la hora de hacer una 
consulta o una modificacion nos va- 
mos a referir en concreto al socio 
[o registro) 28, 113, 4, etc., y la unica 
precaucion que deberemos tener es 
comprobar que el numero de asociado 
al que vamos a acceder no sea mayor 
que el indice. 



PREMISAS -3 

Sin embargo, si la carga inicial tam- 
bien va a ser aleatoria, entonces este 
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procedimiento no es valido. Una ma- 
nera de establecer un indice, serfa 
creando un fichero secuencial con tan- 
tos registros de un solo byte como 
registros vaya a tener el fichero direc- 
to. Podemos inicializar el fichero in- 
dice con todos los registros a «0» y 
cada vez que grabemos un registro en 
el fichero directo mover un «1» a su 
registro correspondiente en el fichero 
indice. A la hora de acceder a un re- 
gistro, bastara acceder primero al in- 
dice y conocer su estado para saber 
si verdaderamente existe o no. 

Para optimizar, en cuanto a tiempo, 
es aconsejable haber cargado previa- 
mente los registros del fichero indice 
en una tabla de memoria sobre la cual 
podemos trabajar durante la ejecucion 
del programa y, al final, grabarla en 
disco si es que ha sufrido modifica- 
ciones. Con ello ganaremos tiempo y 
ahorraremos accesos a discos. 

En las paginas 55/59 del «Manual 
Floppy» hay un programa de ejem- 
plos en el que se emplea este proce- 
dimiento. 



TRATAMIENTO - 1 

Para trabajar con fichero de acceso 
directo, necesitamos hacerlo por me- 
dio de un area intermedia a la cual le 
damos el tratamiento de fichero. Es 
decir si pretendemos grabar informa- 
cion en un fichero, primero la vamos 
a llevar a esa area intermedia y, desde 
alii, la vamos a grabar definitivamente 
en disco. Y exactamente igual para 
leerla: del disco la movemos al area 
intermedia y de alii la recogemos pa- 
ra tratarla. 

El esquema de la fig. 1 pretende 
aclarar un poco el contenido de las 
Ifneas anteriores. 

Pues bien, sentados ya frente a 
nuestro «Micro», el primer paso sera 
abrir el fichero de trabajo y el area 
intermedia que, como hemos dicho, le 
damos tratamiento de fichero. Debe- 
remos abrir tambien el fichero fndice 

10 OPEN 5, 8, 15 

20 OPEN4,8,3,"#" 

30 OPEN 2, 8, 2, "OM'NDICE, S, R" 



TRATAMIENTO - 2 

Donde: 

5-4-2 = NUMERO LOGICO DE 
FICHERO 



8 = TIPO DE PERIFERICO (8 = 

FLOPPY, 1 = CASSETTE) 
15-3-2 = NUMERO DE CANAL 
= PRIMER DRIVE FLOPPY 

(Si existiera un 2.° seria 1 ) 
INDICE = NOMBRE DE FICHERO 
S = TRATAMIENTO 

SECUENCIAL 
R - READ (Tratamiento de 

lectura.W = WRITE) 

Este paso seria comun para cual- 
quier tratamiento que le fueramos a 
dar al fichero pero, a partir de ahora, 



TRATAMIENTO - 3 

3 = Numero de canal del area 
intermedia 

= Numero del «Floppy» 
(disco flexible) 

NP = Variable recogida de la 
subrutina del calculo de 
direccion fisica que especifica 
el NUMERO DE PISTA 

NS = Variable recogida de la 
subrutina de calculo de 
direccion fisica que especifica 
el NUMERO DE SECTOR 




va a variar en funcion de que quera- 
mos acceder a el para leer o simple- 
mente accedamos para grabar datos. 
En cuanto al fichero indice, hemos vis- 
to como se abre, pero no vamos a se- 
guir con su tratamiento. Este seria 
totalmente secuencial y dependiendo, 
como hemos dicho, del fichero directo. 

Acceso de lectura 

En primer lugar, vamos a tener que 
utilizar la subrutina de calculo que nos 
dira la pista y el sector donde esta el 
registro que estamos buscando (ver 
subrutina de direccion fisica), y con 
los datos que nos devuelva, nos va- 
mos a la informacion y la moveremos 
al area intermedia para, desde allf, 
recogerla y posteriormente tratarla. 

40 PRINT # 5, "B-R:" 3;0;NP;NS 

Donde: 

5 = Numero logico del fichero 
de datos 
"B-R:" = Comando de sistema 
operativo que significa 
Buffer Read (lectura 
intermedia) 



El siguiente paso es mover el pun- 
tero intermedio que controla la trans- 
mision de datos. 

50 PRINT # 5,"B-P:"3;1 

Donde: 

5 = Numero logico del fichero 
de datos 

"B-P:" — Comando de sistema 
operativo que significa 
« Buffer Pointer- 
(puntero intermedio) 

3 = Numero de canal del area 
intermedia 

1 = Posicion del puntero 

Y, por ultimo, recogemos la informa- 
cion del area intermedia, de la si- 
guiente forma: 



50 INPUT # 4,A$,B,C 



Donde: 



4 = Numero logico del area 
intermedia 
AS,B,C = Variables 

(pasa a la pag. siguiente) 
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tratamiento de los 
ficheros de acceso direct© 
en el VIC-20 



TRATAMIENTO - 4 
Acceso de escritura 

En el tratamiento de escritura, varia 
el orden de las instrucciones. En pri- 
mer lugar deberemos mover el pun- 
tero intermedio. Para dar una idea de 
lo que se pretende con esta instruc- 
cion, me atreveria a compararla con 
el duefio de una casa que da una fies- 
ta, cuando presenta a dos de sus invi- 
tados (el fichero de trabajo y el area 
intermedia). 

40 PRINT # 5"B-P:",3;1 

Donde: 

Los parametros son los mismos 
que cuando hacemos el acceso 
de lectura 

A continuacion, vamos a ITevar al 
area intermedia la informacion que 
queremos grabar. 

50 PRINT # 4,A$;B;C;CHRS(13) 

Donde: 

4 = Numero logico del area 
intermedia 
AS,B,C = Variables 
CHRS(13) = Marcadel ..Carriage 

return» (Fin de registro) 

Y, por ultimo, registraremos la in- 
formacion definitivamente en el fiche- 
ro, pero antes deberemos pasar por 
la subrutina de calculo de direccion 
para que en funcion del numero de 
registro, le asigne un lugar en el fiche- 
ro a nuestra informacion. 



TRATAMIENTO - 5 

60 PRINT # 5, "B-W:" 3;0;NP;NS 

Donde: 

Los parametros son los mismos 
que en la linea 40 del acceso de 
lectura, con la salvedad de que 



(viene de la pag. anterior) 



el comando "B-R:" («Buffer 
Read»), es sustituido por "B-W:" 
(.■Buffer Write-) (escritura 
intermedia) 



SUBRUTINA DE CALCULO 
DE DIRECCION FlSICA 

A continuacion, vamos a ver la sub- 
rutina que nos calcula la direccion 
fisica del registro en el disco. 

El unico parametro que le damos de 
entrada, es el numero de registro, y 
la subrutina nos devuelve dos varia- 
bles (NP, numero de pista) y (NS, nu- 
mero de sector), situacion fisica que 
le corresponde ocupar en el disco al 
determinado registro. La variable NR 
es la que contiene el numero de re- 
gistro. 

100 IF NR 358 THEN F1 =0:F2 = 22: 

F3=1:GOT0 140 
120 IF NR 357 AND NR 471 THEN 

F1=357: F2 = 20: F3 = 19: GOTO 

140 
120 IF NR 471 AND NR 580 THEN 

F1=471: F2 = 19: F3 = 25: GOTO 

140 
130 IF NR 580 THEN F1 =580: F2=18: 

F3 = 31 
140 NP= INT(((NR-F1)-1)/(F2-1)) F3 
150 NS= NR-F1-(NP-F3) F2 (NP-F3-1) 

Los registros deberan ir siempre 
numerados desde 1 hasta 664 (capaci- 
dad maxima del disquette); y el si- 
guiente cuadro, .extraido del manual 
del floppy, muestra la distribucion ge- 
neral de estos en el mismo: 



TRATAMIENTO DE ERRORES 

El sistema operativo de disco del 
VIC-20 nos permite el tratamiento de 
errores en los accesos a disco. Me- 
diante la subrutina que veremos a con- 
tinuacion podemos tratar de controlar 
los errores que se puedan dar durante 
la ejecucion de un programa, en cuan- 
to a lo que accesos a ficheros se re- 
fiere, con lo que de alguna manera, 
aunque el error ya es inevitable, pode- 
mos evitar esas detenciones bruscas 
del programa que nos «desmontan» la 
pantalla y nos aparece esa famosa 
palabra ya familiar para todo aquel 
que ha programado mas de dos dfas 
de «ERROR». 

200 INPUT # 15, NE,MES,PE,SE 
210 IFNE = THEN RETURN 
220 PRINT ..ERROR DE DISCO »; 

NE;MES;PE;SE 
230 INPUT'CONTINUO "; Y$:IF YS = 

.<SI» THEN RETURN 
240 STOP 

Donde: 

15 = Numero de canal 
EN = Numero de error 

(ver manual del floppy) 
MES = Mensaje o descripcion 

del error 
PE = Pista donde se ha producido 

el error 
SE = Sector donde se ha producido 

el error 

Con esta subrutina, recogemos in- 
formacion del sistema y comproba- 
mos el numero de error (linea 210). Si 
este es igual a 0, es que no ha habido 
error y vuelve el programa a su ejecu- 
cion normal. Si lo hubiese, nos darfa 
por pantalla los datos referentes al 
error (numero, descripcion, pista y 
sector) y nos daria la opcion de seguir 
o detener la ejecucion del programa. 



Numero Pista 


Sector 


Sectores/Pista 


Num. Registro 


1 a la 17 
18 a la 24 
25 a la 30 
31 a la 35 


Oal 20 
Oal 80 
Oal 17 
Oal 16 


21 
19 
18 
17 


1 al 357 
358 al 471 
478 al 579 
586 al 664 
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ELECTRONICA 



de alimentacion 



por R. PARDO 




Este programa calcula una fuente 
de alimentacion estabilizada electro- 
nicamente con zener y un transistor 
regulador serie. Con el se obtienen 
todos los parametros que se necesi- 
tan (tension en el secundario del 
transformador, fusible del primario, 
caracteristicas de los diodos del 
puente rectificador, caracteristicas 
del condensador de filtro, zener y sus 
componentes auxiliares, y el circuito 
del amplificador de error y del tran- 
sistor serie). 



Los datos que pide el programa 
son: 

UAC (V): tension del primario del 
transformador (tension de red). 

UDC (V): tension de salida del es- 
tabilizador. 

I. SAL (ma): intensidad de salida 
del estabilizador. 

FUSIBLE (L/R): elige fusible lento 
o rapido para el primario del transfor- 
mador. 

F. RED (Hz): frecuencia de red. 




U. zener (V): tension del diodo ze- 
ner. 

W. zener (mW): potencia maxima 
de disipacion del zener (dada por el 
fabricante). 

BETA TR. SERIE: B (HFE) del tran- 
sistor serie. 

Todos los resultados vienen dados 
en: 

— miliamperios si se trata de in- 
tensidades. 

— voltios si se trata de tensiones. 

— Vatios si se trata de potencias 
de disipacion. 

— Microfaradios si se trata de ca- 
pacidades. 

— Kilo-ohmios si se trata de resis- 
tencias. 

En todos los casos es aconsejable 
que, si se intenta llevar a la practica 
el circuito, se dote al transistor serie 
de un elemento refrigerador (un disi- 
pador de aletas, por ejemplo). 

Las Ifneas 10-90 presentan el pro- 
grama y en las Ifneas 100-210 se in- 
troducen los datos con los que se va 
a trabajar. 

En las Ifneas 220-300 se calculan y 

(pasa a la pag. siguiente) 



BOLETI'N DE SUSCRIPClON - club commodore 



NOMBRE EDAD 

DIRECClON 

POBLACION ( ) PROVINCIA 

TELEF MARCA Y MODELO DEL ORDENADOR 



APLICACIONES A LAS QUE PIENSA DESTINAR EL EQUIPO 



Deseo iniciar la suscripcion con el n.° 6 



(Enviar a la direccion del dorso) 



Firma, 



DESEO SUSCRIBIRME A "CLUB COM- 
MODORE" POR UN ANO AL PRECIO 
DE 1.980 PTAS., QUE PAGARE CON- 
TRA REEMBOLSO AL RECIBIR EL NU- 
MERO CON EL QUE SE INICIA LA SUS- 
CRIPClON. DICHA SUSCRIPCION ME 
DA DERECHO, NO SOLO A RECIBIR LA 
REVISTA (ONCE NUMEROS ANUA- 
LES), SINO A PARTICIPAR EN LAS AC- 
TIVIDADES QUE SE ORGANICEN EN 
TORNO A ELLA Y QUE PUEDEN SER: 
COORDINAClON DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 
MAS, CONCURSOS, ETC. 
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(viene de pag. anterior) 



10 rem alimsntaciOTl 

20 r*fn r_ Pardo 

3© rem cluib commodore 

40 rem 16. 10. 1982 

30 rem 

60 rem 

70 rem 

00 rem 

90 Pok«36869,peek (36B65>+2 

100 Prlnf'mFUENTE DEC nLIMEHTHCION* 
P r- i nt Imp u.t "U*cfV)";uil 
Pi^lnt : i-nPut"Udc<V> "Ju2 
Print = iTiPut" Iial (mR) " ; 1 1 
Print : PriYlt"Fuslble<L/R> " 
seta* : i r a* = " 1 " then 1 = 3 : Soto 1 80 
ifaJ-'-r-'theTlV-lB : 9otol80 
9otol30 

Pri nt : 1 tip utt"F. retJC Hz > " ; -T 
Print = input "l_l. zener< V) '■ .; u.=r 
Print : inPu.t" W. zenerCmU>";wz 
Print: inPuf'Eet* tr. s-er ± e " .: bt 



1 10 

120 
130 
140 

130 
163 
17B 
180 
190 
200 
210 
220 
230 
240 
2S0 
263 
27PJ 
230 
290 
300 
310 
320 
330 
340 
350 
360 
37-0 
330 
390 



u.e—u2^ . 9 : f =.— < < I * < u. 1 ,-"u.e )>/ll)*l 000 

Prltit"»FUSIBLE PRIMfiRIO" 

Print : Print" If="f£"mfl" 

9osub640 

rem 

PrltlfWENSION SECUNDHRIO 

Print : pritit"Us""ue"Volts" 

9osub640 

rem 

rm=u.2^"i 1 : im«l 1^2 

ar«ue*sq r<2> 

PrlnfMCHRHCTERISTICHS DIODOS" 

Print : print" If~=" lm"mP," 

Pr lnt : Pr i nt " Ur= " u.r " Vo 1 ts " 

Sosub640 

l=-2*f 

t« \S\ • ci~= < 3*t i ^rm : c«cr*2000 



400 ij.c— u.1 — K<ur*40>/*100) 

410 PrinfMCRLCULO CONDEHSHDOR" 

420 Prlnt:priTit"Cl = "c"uF" 

430 Pri nt ' P r i nt " Uc 1 == " u.c "Volts" 

440 9osub640 

430 rem 

460 iz=uz/'uz:rl«=<:ui u2^/iz 

47*0 wr=<u.r— u2^*iz : ib»ll/bt ; 14=2*ifc> 

480 ul = i4*.j2: Iful >=uzthe» r i nt ■■ se»EL 
R CISIP8 DEMR- SIS) *3 1 FlDFI POTENCIR 

Oto670 

490 r n*- C u I US Vib:cl = < 3*t > ^r 1 : c=s = .= 1 * 

300 Print" JBCRLCULO ESTRBILIZRDOR" 

310 Pr int : Print "Rz*"rl "kOhms 

320 p r i nt : Print "Wrz="ur"mU" 

330 Print : Print "C2=«"cs"up" 

340 Pr int : print "Uc2="uc" Volts. 

330 Pri nt : Print" Rc» " r n " k Ohms " 

360 9o»ub640 

370 Print "Ml— Repetition d»to£ 

300 Pr int : Pr int " 2— Huevo Proyecto 

390 p r i nt : p r int "3— F in de Proyecto 

600 Pr i nt : pr int " Ru. ls.e 1,2 o 3 

610 9etb*:lfb*="»then610 

620 k=--,-a 1 C ta*> : onk9oto240, 100,630 

630 p ok S36869 , P eek ■: 36369 > — 2 : p r i nt " M 

640 P r int : Pr i nt "Rul Is-e u.na tec la 

630 9ets*:ifs*=""then650 

GG^ retij.rm 

67*0 p r i nt : pr int "T iene dos op oi ones." 

630 Pr int : print " 1—Tr. s.er i e de beta 

as. ele-vada" 

690 Print : print " 2~Zener m*s P otente 

7*00 Pr i nt : pr i nt "Ru. 1 se 1 o S 

7*10 9etl*:ifU="i"then740 

7-20 ifl*="2"then730 

730 9oto710 

740 Pr int"*" : inPu.t"Beta" : bt - 9oto460 

730 Pr int = " M" : inPu.t" W. =emer C mUO " : w: 

O460 

ready . 



2FZHFZ 

S" : -3 

2000 



presentan los datos del fusible secun- 
dario del transformador. Las caracte- 
rfsticas de los diodos se calculan en 
las lineas 310-370, el condensador de 
filtro en las lineas 380-440 y el resto 
del estabilizador en las Ifneas 450- 
560. Las lineas 570-630 y las 640- 
660 son unas rutinas para finalizar el 
programa en el primer caso y para se- 
guir con la pantalla siguiente en el 
segundo caso. Las lineas 670-730 solo 
actuan en el caso de que la potencia 
del zener, que ha sido introducida, 
sea igual o menor que la que ha cal- 
culado el programa, sugiriendo dos 
soluciones: 

— elevar la beta del transistor se- 
rie. 

— elevar la potencia de disipacion 
del zener. 



FORMULAS UTILIZADAS 

Ue = Us/.9 

lf=f.1*(Ui/Ue)) li 

T=1/f 

Rc = Us/ls 

lm = ls/2 

C = 3*T/Rc 

Uinv = Ue*SQR(2) 

Rz = (Ur-Uj)/l2 

lb = ls/[beta] 

Rc = (Ur-Uj)/lb 



EJEMPLO DE CALCULO 

DATOS: 

Uac(V) = 220 
Udc(V) = 12 
lsal.(mA) = 500 



Fusible(L/R): L 
Free. red(Hz) = 50 
U Zener (V) = 12 
W Zener (mW) = 1000 
[beta] =20 

RESULTADOS: 

Fusible(lf] = 165 mA 

Tension secundario (Us) = 13.333333 V 

Caracteristicas diodos: 

lf=250mA 

Ur=18.8561808 V 

C1=2500 microF. 

Uc1 =26.3986532 V 

Rz=. 0822741 701 Kohmios 

Wr2 = 57 1.348404 mW 

02 = 729.268979 microF 

Uc2 = 26.3986532 V 

Re = .274247234 Kohmios ■ 
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BANCO DE PRUEBAS 



el cartucho 
de ajedrez del 



VIC-20 



(I) 



por PERE MASATS 



En este numero iniciamos una seccion que dedicaremos 
a los diferentes accesorios y programas para los ordenado- 
res personales COMMODORE. En ella iremos dando los 
detalles mas o menos tecnicos en la medida en que sean 
de interes para nuestros lectores y explicaremos su funcio- 
namiento. Para empezar, hoy veremos el cartucho ref. 1919 
SARGON II CHESS (AJEDREZ). 

Este es, sin ninguna duda, el juego mas sofisticado y 
«serio» para el VIC-20. Cuando se da tension al VIC, des- 
pues de insertar el cartucho, aparece en pantalla la presen- 
tacion del juego. Lo primero que debe hacerse es centrar 
la imagen utilizando las teclas de control de cursor, pudien- 
dose realizar algunas adaptaciones: 1. En algunos televiso- 
res la imagen puede presentar cierta vibracion. Para elimi- 
narla hay que pulsar simultaneamente las teclas SHIFT y F7. 
(En los televisores normales, el pulsar estas teclas puede 
producir, a su vez, vibraciones.) 2. Se pueden cambiar los 
colores del juego pulsando F3 y el color del borde con F5. 

Para empezar el juego, pulsar F1 y, para terminarlo, 
RUN/STOP y RESTORE. Al pulsar F1 aparece en la pantalla 
el mensaje: GAME OR SETUP (G,S): al que se debe respon- 
der con una G o una S dependiendo del tipo de juego que 
queramos disfrutar. Si pulsamos G empezamos un nuevo 
juego y el VIC se encarga de situar las piezas en la posicion 
inicial; si pulsamos S tenemos la posibilidad de empezar 
a jugar a partir de una situacion dada en el tablero que nos- 
otros podemos definir. (Los jugadores de ajedrez expertos 
prefieren jugar solamente la ultima parte de una partida que 
suele ser la mas emocionante.) 

Si se empieza una partida, el VIC preguntara: YOUR 
COLOR (B,W): a lo que debe responderse con la inicial (en 
ingles) del color con el que se quiera jugar, o sea, B si que- 
remos jugar con las negras (BLACK) o W si lo queremos 
hacerlo con las blancas (WHITE). Una vez dado este paso, 
el VIC preguntara por el nivel de dificultad del juego: LEVEL 
OF PLAY (0-6): Conforme va subiendo el nivel va creciendo 
el tiempo de respuesta del ordenador y su «inteligencia». 
El numero de nivel (LEVEL en ingles) representa la cantidad 
de semi-movimientos futuros del operador que el ordenador 
tiene en cuenta antes de decidir su jugada. Una vez realiza- 
das estas operaciones, empieza el juego propiamente di- 
cho, distinguiendose en la pantalla tres partes: arriba y a la 
izquierda, se situa el tablero de ajedrez propiamente dicho, 
y, en sus bordes, aparecen las letras y los niimeros que nos 
permitiran realizar los movimientos; en la parte superior 
derecha, se van registrando los cinco ultimos movimientos 
realizados en notacion de ajedrez estandard; en la parte 
baja de la pantalla aparecen los mensajes del juego. 

(continuara) 
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COLABORACIONES 



simulacion f isioa, 
del choque elastico: 
juego de foillar 



A David Cervigon Fernandez le conocimos en Madrid durante la ultima 
edicion de SIMO en noviembre pasado. Como habiamos proferido es- 
tentoreas voces (desde CLUB COMMODORE y otros lugares), claman- 
do por las aplicaciones educativas del VIC, un companero de Madrid 
nos puso en contacto (jgracias!) con el Instituto Experimental de Ba- 
chillerato "Cardenal Herrera Oria" que obtuvo cinco de los diez pre- 
mios del Torneo Escolar de Programacion 82. El trabajo que presenta- 
mos aqui gano el tercer premio de dicho concurso. jFelicitaciones y 
gracias por el articulo! 



£■1 fenomeno del choque o colision 
se produce cuando dos particulas o 
sistemas de particulas se aproximan 
entre si alterando su movimiento y 
produciendo un intercambio en su 
cantidad de movimiento (P) y energia 
(T). 



1) DESCRIPCION DEL PROBLEMA 

Nuestro estudio se circunscribe al 
caso en que realmente existe contac- 
to fisico entre las particulas (choque 
de dos bolas de billar) y en donde se 
produce una dispersion, es decir, las 
particulas resultantes del fenomeno 
del choque son las mismas que las 
iniciales. La colision se producira en 
una unica direccion. Sera completa- 
mente elastica, frontal, y respetara 
las leyes fisicas de la reflexion. 

El volumen de las bolas sera el 
mismo no siendo asi su masa, debido 
a que el jugador podra variarlas cuan- 
do lo desee. Asimismo podra variar la 
velocidad inicial de la bola y, estre- 
chamente ligado, el espacio total que 
debera recorrer. Todas estas magni- 
tudes predeterminaran los resultados 
del choque, fenomeno producido por 
el sistema de ecuaciones siguiente: 

(1): M1*V1 + M2*V2 = M1*V1' + M2 
*V2' 

(2): 1/2MrV1 A 2 + 1/2M2*V2"2 = 1/ 
2MrVl" v 2+1/2M2 + V2" v 2 



Donde la ecuacion [1) es el princi- 
pio de conservacion de la cantidad de 
movimiento (P), y la ecuacion (2) es 
el de conservacion de la energia cine- 
tica (T). Y V1 y V2 son — respectiva- 
mente — las velocidades de la bola 1 
y de la bola 2 antes del choque y V1", 
V2' despues del choque. 

Las masas M1 y M2 se mantendran 
constantes en todo momento. El es- 
tado fisico de la bola 2 (bola amarilla) 
antes del choque es el reposo (V = 0) 
y, por limitaciones del ordenador, 
tras la colision desaparecera. Por lo 
tanto, el estudio cientifico se restrin- 
ge al movimiento de una sola bola 
(bola roja), la cual partira tras el cho- 
que con una velocidad VT igual a: 

V1' = ((M1-M2rV1)/(M1+M2) 



2) DESARROLLO DEL TRABAJO 

Atendiendo a los medios materia- 
les utilizados, el programa ha sido 
realizado en dos fases: 

La primera, en el centro de ense- 
nanza antes citado, con un PET 2001 
(COMMODORE) sin ningun tipo de 
perifericos. Y la segunda, con un or- 
denador VIC-20 (COMMODORE) pro- 
pio. En este caso se ha utilizado un 
cartucho de ampliacion de memoria 
16 KB y una impresora COMMODORE 
que han sido proporcionados, desinte- 
resadamente, por la casa de micro- 
sistemas ACCORD SOFT. 



por 

DAVID CERVIGON FERNANDEZ 

I.N.B. "Cardenal Herrera Oria" 
COU-A 



He consultado los manuales de am- 
bas maquinas junto con revistas espe- 
cializadas espaholas (EL ORDENADOR 
PERSONAL), de aparicion muy recien- 
te, y extranjeras (YOUR COMPUTER, 
publicacion inglesa) para resolver los 
problemas de programacion; y el libro 
«Fl'SICA COU», autores E. Lowy y 
otros, para resolver los problemas de 
simulacion cientifica. Debo destacar, 
por ultimo, la gran ayuda prestada en 
ambos campos por profesores de los 
seminarios de Matematicas y Fisica 
del Instituto «Cardenal Herrera Oria», 
que han hecho posible, en gran medi- 
da, la presentacion de este trabajo. 



3) EXPLICACI6N DEL PROGRAMA 

Para comprender la estructura del 
programa mostramos a continuacion 
un organigrama que, a grandes rasgos, 
pretende ofrecer una idea clara y glo- 
bal de lo que es el programa. 

La partida en si es una subrutina 
que se efectua para cada jugador tan- 
tas veces como sea necesario. Esta 
formada por varias partes que anali- 
zan por separado cada una de las si- 
tuaciones que se van presentando. El 
jugador puede mover el taco en ocho 
direcciones distintas y jugara con la 
bola roja. El impulso de esta, que se 
consigue pulsando la tecla G, tiene 
cinco grados; cuanto mas separado es- 
te el taco de la bola, mayor velocidad 
inicial le imprimira y, por lo tanto, ma- 
yor espacio recorrera. El choque, bien 
con una banda o con otra bola, dece- 
lerara a la bola segun las condiciones 
existentes. Tambien cada espacio que 
recorra sufrira una deceleracion, aun- 
que esta sera minima. 
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La velocidad de la bola se consigue 
mediante bucles retardadores situa- 
dos en cada uno de los tres tipos de 
movimiento (vertical, horizontal y obli- 
cuo). 

Al principio del juego, las bolas 
siempre saldran en una determinada 
posicion pero, una vez borradas de la 
pantalla debido a la colision con la bo- 
la roja, seran situadas aleatoriamente 
en la proxima jugada. Todo esto, el 
movimiento del taco, los choques, etc., 
Ilevan aparejados ciertos efectos es- 
peciales, como son diferentes colores 
y sonidos para cada caso, consiguien- 
do de esta manera una mayor vistosi- 
dad del juego. 



4) PRESENTACI6N GRAFICA 

En primer lugar, el ordenador pre- 
guntara si se desea conocer las reglas 
del juego. En caso afirmativo, las im- 




Fig. 1 



(continua en la pag. 13) 



I REM BILLRR 

5 REM POR DRV ID CERVIGOM FERNANDEZ 

7 POKE36879, 15 - POKE36878, IS 

•3 PRINT"n«~ " 

II PRINT"K«)!fc. SIHIJLflCION FISICR " -PR 

T 

' DEL CHOGUE ELflSTICO 

■ :«r? mem bsmi se m *tmm mssg •• 

• m * urn. se m m m a •• 
' m * g^s m m m m ?. " 

■ ^ss?? s -^ m 3s&*m. *mm " 
•mm s m m m m m * •• 
' mm s m mt m m m m" 

■ msm m&i" • m m ssr' 

• :«WT7 POR " 
■W DRV ID CERVIOOH FEDZ. 

22 FORLP=lTOiee 

25 POKE36876 j I NT < RND ■.: T I > * 1 28 > + 128 

26 FORPL=1TO10 

27 NEXTPL 



1 p 


PRINT 


1 3 


PR I MX 


1 <* 


PRINT 


1 TS 


PRINT 


1 6 


PRINT 


1 T 


PRINT 


1 S3 


PRINT 


1 <=> 


PRINT 


sa 


PRINT 


21 


PRINT 



HE 



<TLR 



ER LRS 

^N40 

E3ee7e 



REOLPS?n" 



2P0 : POKE36S76 .. © 



30 POKE36B76 , © 

35 PRTHT"Wr,ESER VS 

4© QETW* - IFH*=" "TH! 

45 I FN$= " H " THEHPOKI 

50 I FH*<> " H " HHDH*<> " S " THEH40 
35 POKE36876j 22© : POKE36876. © 
1 ©0© REM ffEGLRS DEL .JUEGO 
ISIS PR I HT " r^. REOLRS " 

1020 PR I NT "SI " 

1025 POKE36876.. 135 : FORT = 1 TOSB© : HEXTT = ROK 

E36876 .. 

1 030 PR I WT '■ i_B F I HRL I DRD DEL JUEQO " 

1 035 POKE36876 .. 1 47 ■ FORT= 1 TO306 : HEXTT : ROK 

E36S7C, 

104-0 PRINT"ES HRCER DESRPRRECEP 

1045 POKE36876.. 159 - FORT=lTO50i3 : HEX.TT : ROK 

E36876 • 

1 050 PRINT " LRS BOLRS RMfiR I LLR3 - 

1 055 POKE36876. 163 = FORT=1TO!0©0 - NEXTT : RO 

KE36376. 

1060 PRINT" PRRP MOVER EL TRCO 

1063 POKE36876, IT'S : FORT=1TO5©0 : HEXTT : ROK 

E36876 .• 

1070 PRIHT"T-RRPIEP, B — RBR-JO .- F— i:ZQ" 

1 075 POKE36876 , 1 S3 - FORT= 1 TG.5B9 : HEXTT - ROK 

E36876 .■ 

1 08@ PR I HT " H— DCHR . N— R— V— V— OBL I CUO " 

1 085 POKE36876 .. 13 1 - FORT= 1 TO500 : HEXTT : POK 

E36376.. 

1 030 PR I HT " G~ T. MPULSO - MRX5ESPRC T OS " 

1 035 POKE36876 -■ 1 35 : FORT* 1 TO 1 500 : HEXTT = PO 

KE36876, 

1 100 PRINT" UV. TIJEOR CON LR BOLR " 

1 1 05 POKE36876. 201 - FORT=1TO500 - HEXTT : POK 

E36876, 

1110 PRIHT"RO-JR.DESER VRRIRR LRS " 

1115 POKE36876 , 207 = FORT = 1 TO500 = HEXTT : ROK 

E36876, 



1 1 20 PR I HT " COHD ICI ONES F I S I CRS 

1 125 POKE36876, 203 = FORT=1TO5©0 : HEXTT : POK 

E3S376, 

1 128 PR I NT "DEL TIJEGO <S © N> -? m" 

1 130 GETHt : 1FH*=" "THEH1 130 

% X 40 J fth*= " H " THEHPOKE36876 .- 250 = POKE36876 

- = GOTO20O0 



1 15© 
1 155 

1. 1 68 



I FH^O " H " RHDH*<> " S " THEN 1 130 
POKE36876, 250 - POKE36876, 
F;PM*********#*******i4f***#********** 



*** 

120© RE 

12 



FUHERMEHTO FI3ICQ 
RR I NT " rr«**S I MULRC I ON P I S I Cfl**# " 
1230 PRINT"* DRTOS" - PRINT : PRINT 

1 ^-^s PRINT"250GR.MRSR STRHDRR DE " 
1250 PRINT"LRS BOLRS DE B I LLRR - " = PRINT 
RR I NT" -EOLR ROJR < " 

I HFUT " *««WrWiffi«DSr^>PW?s3K«IMRSR EN GRPMOS " 
: M 1 : RR I HT = RR I NT 
1280 IFf!K=0THEN1270 

POKE36876 , 25© : POKE36876 ,. O 
PRINT"— BOLRS RMRRILLfiS : " -PRINT 
I NPUT " $ZXXJ&*7*-*X*C&Z£^ EH GRR 

: M2 ■ PRINT 
IPM2<=0THEN13©0 
315 PQXE36376 ■ 25© : POKE36876j 
32© PR I NT "OK" - RORT=1TO150© = NEXTT 

REM******************************** 



126© 
1270 



128 
5.230 

1300 

1 3 1 © 



135© 

*** 

200© 
20 1 © 



M RROLOGO DE LR RRRTIDR 
4206 = W = 62 
02© REM SITUflCION IHICIRLDE LRS BOLRS 

2030 BR=4356 : 61=429© : B2=4386 
2©5© REM DRTOS PRRR EL JUEGO 
2©6© PRINT'Tlk*** BILLRR ESPRHOL *##" :PRI 



HT 



''O INPUT" 



•IUMERO DE JUGflBORES' 



: J l P 



RIHT 

2080 

2085 



I F,T< = 0THEN2070 

POKE36376, 220 : POKE36876.. 

2030 PRINT"LR RRRTIDR RCRBRRR : " -PRINT 

2 1 ©© RR I NT " — T I EMPO < 1 > " - PR I NT 

2 11© PRINT"— N. DE CRRRMEOLRS < 2 > " = PR I NT 

2 12© PRINT"— RMBOS R LR VEZ < 3 ^ " : PRINT 

213© RRIHT"»P*PilCI5i TECLEE 1 .■ 2 O 3*" : PRINT 

214© GETR* : IFR*=""THEN2140 

2 15© IFfltO" 1 " RHDR*<> " 2 " RNBR*<> " 3 " THEN2 1 
4© 

2 155 
2160 
2 17© 

0000 

2 175 

2 176 

2 177 

2 1 80 



POKE36876 _. 250 : POKE36876 ,- 

I FR*= " 2 " THEN2 1 3© 

I NPUT " MWWKI^^WMIBWPngKWlgt-IgE: SCR I BRLO < ©0 

:. " ; T* : PR I NT 

LO=VRLCT*> 

I FLO<=0THEH2 1 7© 

POKE36876.. 25© = POKE36876. 

I PR*—" 1 "THEN2200 
2 1 35 POKE36876 , 250 : POKE36876 ■ © 

2130 IHPUT"HrsI»n!X«tKW'!!llGlSr!SI^^ C 

ftRHMBOCBS" - ; C - RRIHT 



(continua en la pag. siguiente) 
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2195 IFC<=BTHEN2190 

2 1 96 POKE3SS76 , 250 : POKE3687S , 

2200 PRINT"OK" 

£2 10 REM D I MENS I OK! DE LR P1HTRI2 DE LOS J 

UGRT?ORES 

2230 » I KC < 2 . J » 

2230 FORJU=lTOJ 

22-40 r •: ju , i :■ — ju 

2250 NEXTJU 

2260 FORT==1TO1000 : HEXTT : TI*="000000" 
2270 PRINT"r-*r3****** BILLBR ******■• 
2230 GOSUE7000 
2300 REM JUEGO 
23 1 FOR JU= 1 TOJ 

232© PRINT'* MWWBt««D!ICI«tatRI)H^<GHIWI«WKEKWM*»l»^»»l!a 
ES JUGHIIOR!" .: JU; " 3"*5" - CR=0 : CO = 

2330 PRTNT"rr , ?!WnJ*** CRRflMBOLflS*" J AC JUj 2> J 
"*****" : GOSUB3000 
234e PRINT" ■" 

2350 K=4206 : N = 62 : V = : R = ' E = : S = : V = : X™0 
: T: = 

23S0 I =0 : B = : M = : DR = ! DR=0 : CO=0 
2370 IFPEEK(E1> OS 1 BHDPEEK (B2>*81 THENOOS 
!J1?-4000 : OOTO2490 

2375 I FPEEK < E2 > OS 1 RHBPEEK (Bl > =8 1 THENOOS 
! iB40 1 © ' O0TO2430 

23eS T FPEEK •'. E 1 > OS 1 BNIPEEK C E2 > OS 1 THENGO 
E^M'F:^'©©© = !?OSUB4010 I OOTO2400 
2390 3OTO2490 
2400 REM PUHTOS 
2410 CP=CR* 1 : R < JU , 2 > = CR 

2420 PRI^T ;,, nwr^*l*y** CppnMBOLfl3=" "■ R£JU .. 2> ; 
,: *E4**** " 

2439 REM E D ILOOO DE LP PRRTIDR 
2445? IFH*="2"THEH2470 

2430 IFTI t>=T*THEHPR I HT " x&TW_w&c*r*IZ&GVX!Ze2GZ&V*.l 
»?:9^"^-»!rT)4« :QOJO2510 
2450 Tr^!='*=" 1 "THFK'2-3:?0 

SE^^^nN 11 :GOTO2510 

24R0 GOTO2330 

2-430 NE>rjU 

2500 GOTQ2290 

23 055 Rpzr-:** *=***************=«** ************* 

25 1 ^EEM GPMPgOR 

25520 MRW = R<; i,2J Lf!FK-R( 1> 1> • POKEB1 ,31: PO 

KEB2- 81 

25530 FORTU=2T0J 

2540 IFB( JU . 2 > JMRXTHEHMHX^R (JU,2) I LMRX-R 

< JU , 1 > 

2550 NEXTJU 

25560 PR I NT " «fcJi««-«*tBIiaK»"»l(3RNRDOR : JUGRDOR" 

; LMRX : PRINT 

25570 PRINT"»IICON "jrlRX;" CRRRMBOLRS " ■ FOR 

T=1TO5000 i NEXTT 

255755 PEM!K**¥**^*«^*******!(E**yi|(***#*#** 

*** 

2580 REM FIN 

25530 PRihiT"& m sm mf ixBte m BH B aa)iBmBiBaM o amBnDmsEf* 

SEGUIR JUGRNDO?" 

2595 GETMt : IFM*=" "THEN25955 

IFM*="S"THENRUN 

I FM* = " N " THENEND 

I FM*<> " S " RNDM*» " N " THEN25955 
26550 END 

3000 REM******************************** 
*** 

30055 REM SUBRUT I NR : JUEGO 
30 10 REM REPRESENTRCION GRRF I CR ' BOLRS V 



2620 
2630 
2640 



TRCO 
~015 
30 16 



I FE 1 =BRTHEHGOSUB4000 

I FB2=BRTHEHGOSUB4B 1 
3020 POKEBR+33792, 2 ! POKEB1+33792, 7 : POKES 
2*33732 , 7 ■ POKEK , W : POKEBR , S 1 : POKEB 1,81: P0 
KEB2, SI 

30355 FORT=1TO750 : NEXTT 
3040 POKEK , 32 : K=K+2 
30455 P=PEEK(K) 

30550 IFP=108ORP=124ORP=1 260RP» 1 1 80RP- 1 23 
ORP=ll 70RP= 12 1 ORP= 1 20THENK=M 

3085 POKE36876, 220 : POKEM, 32 : POKEK+33792, 
1 : POKEK, U : POKE36876, 
3030 GETBJ : IFB*=" "THEN3090 



3100 
3110 
3 120 
3 130 
3 140 
3 1550 
3 160 
3 170 
31S0 



IFB* 
IFE* 
IFE* 

IFBt="F 
IFB*="H 
IFB*=" V 

IFB$="B 

IFBt 

IFE* 



R"THENK=K- 

T"THENK= 

V"THENK= 

THENK=>K- 
THENK=KH 



W = 60 : 

14=62 : 
1-1=62 : 



: M-K4-23 

: M«-K-K22 

: M-K+21 

60 : M— K+l 

62 : M-K-l 

: N=60 : M-K-21 

: U"60 : M-K-22 

: Ul = 62 : M— K — 23 



■THENK = K-K21 

"THENK=K+22 : 

■N"THEMK=K-!-a3 i 

"G"THEHPOKEK, 32 I GOTO3200 
3130 POKEER ,81: POKEE 1,81: POKEB2 ,81 : POKEB 
1+33792, 7 : POKEB2+33792, 7 ■ POKEBR+33792, 2 ■ 
GOTO30455 

3 1 355 REM******************************** 
*** 



3200 REM PROPIEDRDES DEL MOVIMIENTO 

32055 P0KEB1+33792, 7 : POKEB 1 ,31 : POKEB2+337 

92,7: POKEB2 , S 1 

32 10 F0RV=1T055 

3220 IFK=BR — 23*VTHENGOSUE555500 : GOT033655 
IFK=BR— 21*VTHENOOSUE55550E? : OOTO3S055 
IFK=BR— 22*VTHENGO3UB5500 : GOTO3630 
IFK=BR— 1*VTHENGOSUB5500 : GOTO3430 
I FK=ER+ 1 *VTHEHGOSUB5500 : GOTO3410 



3230 
3240 
32550 
3260 
32655 
3270 
3280 



GOT03S255 
O0TO3616 



-Q : POKE36S76 , 23 



I FK=BR+2 1 *VTHEHGO8UB5500 : 
I FK=BR+22*VTHEHGOSUB550O : 
I FK=BR+23*VTHEHGOSUB5500 ; G0T03843 

3230 NEXTV 

3300 GOTO30455 

3310 REM******************************** 

*** 

3400 REM MOV. HOR1T.OHTRL 

34 10 REM DIRECCION 1ZBUIERDR 

3420 IFPEEK(BR-1) = U8THEN3445 

34255 U=— 1 : GOTO34550 

3430 REM DIRECCION DERECHR 

34355 IFPEEK(BR+0 = 117THEH3425 

34455 U=l 

34550 X=0 : D=0 

3460 POKEBR+D , 32 : POKEBR+B+33792 , 

3470 D = D-+-U : P=PEEK(BR+B+1 > : E=PEEK<BR+D-1 > 

34S0 IFP«1 170RE—1 1STHENU— — U : POKE36876, 22 

: V=V+4 : X=X-t-4 

3430 I FPEEK < BR+D > =8 1 THENPOKEBR+D , 32 : EC=E 

R+D : GOSUB6000 : POKEBR+D+33792 .■ : GPTG3480 

35500 X=X-V1 -. V=v-»-l : POKEBR+B + 33792, 2 : POKEER 

-t-B, 81 

35510 FORT=lTOV : NEXTT : POKE36876, 

35520 IFX>=STHEN3550 

35530 GOTO3460 

355550 BR=BR+B : RETURN 

3555555 REM******************************** 

*** 

3^^0 REM MOV. VERTICAL 

36 10 REM DIRECCION RRR I BR 

3620 IFPEEK<BR-22)»121 THEN3645 

36255 Q = — 1 : GOTO36550 

3630 REM DIRECCION RBRJO 

3640 IFPEEK<BR+2a?=120THEH3625 

36455 Q=l 

36550 X = ■■ O==0 

3660 P0KEBR+22*0 , 32 ■ FOKEBR+22*G+33792 , 

3670 O-O+Q : P=PEEK < BR+22HO+22 ) :E=PEEK<BR+ 

22*0— 22> 

36S0 IFP=120ORE=121THENQ= 

: V = V+55 : X = X-fS 

3630 IFPEEK(BR+22*0i-81THENPGKEBR+22*0, 3 

2 : BC=BR+22*G : GGSMB6030 : PGKEBR+22*G+33792 

, : GOTO3680 

3700 X-X-Kl : V-v+1 ! P0KEBR+22*0+33792, 2 : POK 

EBR+22*G, 81 

3710 FORT-1TOV ■ NEXTT : POKE3S876, 

3720 IFX>=STHEN37550 

3740 GOTO3660 

37550 BR*BR+Z2*0 : RETURN 

3760 REM******************************** 

*** 

3800 REM MOV.OBLICUO 

3S055 REM DIRECCION SUR— OESTE 

I FPEEK < BR+22 •> =■ 1 20THEN38550 
I FPEEK <; BR- 1 > = 1 1 STHEN3S70 

3820 Dl=l=— 1 : DR=1 : GOTO3890 

38255 REM DIRECCION NORTE — ESTE 

I FPEEK< BR-22 ) => 1 2 1 THEH3870 
IFPEEK(BR+1 5-1 17THEN3S50 

3840 DH"1 : DR-— 1 ' GOTO3890 

38455 REM DIRECCION HORTE-OEPTE 
I FPEEK ■; ER— 22 > = 1 2 1 THEN38 1 
I FPEEK < ER— 1 > = 1 1 8THEH3830 

3860 DR==— 1 : DR=— 1 : GOTO3390 
38655 REM DIRECCION SUR— ESTE 

I FPEEK <BR+22> = 120THEH3830 
IFPEEKXBR+1 >==1 17THEN3818 
DR=1 : DR=1 
R=*0 = R=0 : X=0 
3300 POKEBR+R+22*R, 32 : POKEBR+R+22*R+3379 
2, 

3310 R»R+BR : P=PEEKfBR+R+22*R+ 1 1 : E =:PEEK(B 
R+R+22*R- 1 5 

33155 IFP=1 170RE=1 1 STHENDR=-ER : POKE36876, 
220 : V=V+3 : X=X+4 

3320 I FPEEK <. BR+R+22*R > =S 1 THEHPOKEBR+P+22 
*R, 32 : BC»BR+fl+22#R : GOSUB6000 : PGKEBR+P+22 
*R+33792 , 2 : G0T033 1 55 

39255 R*R+BR : P=PEEK C BR+R+22*P+22 > :E=PEEKf 
BR+R+22*R-22 > 

3330 I FP= 1 20ORE= 121 THENDR-— DR ■ POKE3687fi , 
230 ■■ V— V+3 : X = X + 4 

39355 IFPEEK<BR+H+22»R>=81THENPOKEBP+R+22 
*R, 32 : BC=.BR+R+22*R i GOSUB6030 : POKEBR+R+22 
*R+33792, 2 : GOTO3930 

3940 X=X+1 : v=V-t-l : POKEBR+P+22#R+33792, 2 : P 
OKEBR+R+22*R, 81 

39455 FORT=-1TOV : NEXTT : POKE36876 . 
39550 IpX>=STHEN3970 
3960 GOTO3900 

3970 BR=BR+R+22*R : RETURN 

3^<3& REM******************************** 
*** 

3990 REM COORDENRDRS DE LRS BOLRS 
4000 B1=4208+IHTCRNB<:TI >*18S+22#IHTCRHP< 
TO*14) : GOTO4020 

4010 B2=420G+INT(RNB(TI )*18)+22*INTCRNB< 
TI MH141 

4020 1 FB 1 =B20RB1 =BRORB2«BRTHEN4000 
4030 RETURN 

S^'&0 REM******************************** 
*** 

555510 K = 420S : W— 62 : POKEK, Ul i POKEER . 32 
520 REM VELOCIDRB V ESPRCIO 
= <60^V?-55 
55^0 S=550*V — 20 
5555550 RETURN 



3810 
38155 



3836 
38355 



38550 
385555 



3870 
38755 
3880 
3890 



55530 



G 
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6000 REM***********************«*#****** 

*** 

60 10 REM COLISION 

ease ifmk«M2thenu»-u : dr=— eh : ootosbsb 

6B38 IFMK=M2THENQ=- G> - DR=- BR 

6050 VC=UMl~M2>#V>/tMl+M2> 

6055 POKE36876 . 240 : X»X+10 

6060 POKEEC-23+33792 ,?POKEEC-23, 126:POK 

EBC+23, 108: POKEBC + 23+33792 , 7 

6065 POKEBC-21 , 124 ' POKEBC-21+33792 . 7 : POK 

EBC + 21 , 123 : POKEBC+2H-33792, 7" 

605*5 KP=50 

6096 I FVO 1 00THEHKP=5000 

6B98 IFVC»0THEHVB>1 : OOTC6120 

6099 IFVC<0THENVC=— VC 

6 100 VB=KP/VC 

6105 IFVB<0THEHVB=~VB 

6 110 VB= I NT < VE > 

6 1 20 V=V+VB 

6130 POKEBC-23, 32 : POKEBC+23j 32 ! POKEBC-21 

, 32 > POKEBC+2 1 , 32 

6135 POKEBC-23+33732, O : POKEBC-21+33792. 

■ POKEBC+23+33792, ! POKEBC+21+33792 • 

6138 I FBCOB 1 flNDCO=0THENPOKEB 1 +33792 , 7 ■ P 
OKEB1 ,81' CO=l 

6139 IFBCOB2PNBCO=0THENPt)KEB2+33792, 7 ' P 
0KEB2 ,81 : CO= 1 

6 140 POKE36876 , : GOSUB7000 : RETURN 

7000 REN MESR 

7010 FOPI»4203TO4186STEP-1 : POKEI , 121 : POK 

EI+33792, 1 ! NEXT I : POKE4 1 85 ,108 

7020 FORI =4207TO4493STEP22 = POKEI , 118:POK 

EI+33792, 1 : NEXT I : POKE4515, 124 

7030 F0RI=4516T04533 ! POKEI , 12«:POKEI+337 

92, 1 NEXT I ROKE4534, 126 

7040 FORl=4512T04196STEP-22 " POKEI ,117: po 

KET+33792, 1 : NEXT I POKE4204, 123 

7050 RETURN 

REPI1V . 



primira en la pantalla, dando la posibi- 
lidad, mediante una nueva pregunta, 
a que varie las condiciones fisicas en 
que se desarrollara el juego. En caso 
negative bien sea a la primera o a la 
segunda cuestion, se imprimiran auto- 
maticamente en pantalla dos pregun- 
tas: la primera hace referencia al nu- 
mero de jugadores que desean parti- 
cipar. En este caso no hay restriccio- 
nes, pudiendo jugar todos aquellos que 
lo deseen. Y la segunda, cuales van a 
ser los limites de la partida, es decir, 
si la partida finalizara cuando trans- 
curra un cierto tiempo (esta modali- 
dad esta dirigida al caso de que solo 
juegue una persona, a modo de entre- 
namiento), o cuando se cumplan un 
cierto nutnero de carambolas (moda- 
lidad dirigida al caso en que haya nu- 
merosos jugadores). Tambien se pue- 
de elegir las dos modalidades anterio- 
res a la vez. En el segundo caso, el 
jugador ganador sera aquel que con- 
siga, el primero, alcanzar el numero 
de carambolas preestablecido. Estas 
dos preguntas se deberan responder 
obligatoriamente, ya que son datos 
esenciales para el juego. 

Una vez cumplidos todos estos re- 
quisites, dara comienzo el juego, en 
la parte superior de la pantalla apa- 
recera «B1LLAR» y una linea debajo el 
puntuador. En el centro de la pantalla 
la mesa de billar con tres bolas, dos 
amarillas y una roja, situadas inicial- 
mente en un lugar fijo, que por su- 



puesto permite lograr hacer una ca- 
rambola. 

En la esquina superior izquierda, 
fuera de la mesa, aparecera el taco, 
donde tras permanecer unos segun- 
dos, atravesara la mesa. A partir de 
este instante el jugador comenzara su 
partida, moviendo el taco como lo de- 
see, con la unica restriccion de que 
no podra sacarlo de la mesa. 

En resumen, en la figura 1 se da la 
situacion grafica antes de que comien- 
ce el juego. 



5) CONCLUSIONES 

EI programa, en li'neas generales, ha 
sido concebido para que no se pue- 
dan dar situaciones imprevistas cuyos 
desenlaces sean indeterminables, asi 
como para que pueda ser utilizado por 
cualquier persona, ya que no se nece- 
sita ningun tipo de conocimientos pre- 
vios de programacion ni de manejo de 
ordenadores y su utilizacion es muy 
simple. 

He intentado, en este programa, sin- 
tetizar el fundamento fisico o cientf- 
fico existente en el billar, con sus ca- 
racteristicas de juego como la habili- 
dad, el ingenio, etc., y todo ello en el 
marco de las limitaciones propias del 
ordenador, tales como la rapidez de 
lectura, resolucion, etc. Que esta sin- 
tesis se haya logrado o no, lo deberan 
decidir ustedes. « 










in 






Revista 



En sus paginas ya se han publico- 
do, desde el n.° 1 (febrero 1982): 

• Programas para VIC-20: 

— Generacion de sonido y pro- 
grama para piano 

— Calculo de esfabilizadores 
con Zener 

— El Desperfador 

— El Quinielista. 

• Se han publicado articulos sobre 
los siguientes temas: 

— Lenguajes de programacion. 

— La ampliacion de un ordena- 
dor con los perifericos. 

— Que es y como funciona un 
ordenador personal. 

— Cuadro de ordenadores pro- 
fesionales/personales en el 
mercado espanol. 

— Interfaz para cassette. 

— Cuatro puntos decisivos en 
la eleccion de un ordenador. 

— Los modems. 

— Discos flexibles (floppy disk). 

— Realizacion de un teclado 
ASCII a partir de un hexa- 
decimal. 

— Las nuevas CPUs: arquitectu- 
ras distintas, mas potencia, 
mayor flexibilidad. 

— Serie de articulos sobre los 
microprocesadores con analy- 
sis de todos sus aspectos, en 
forma progresiva. 

— Aplicaciones de microproce- 
sadores: un sistema de semd- 
foros en la via publico, Sis- 
tema de alarma anti-robo, 
Sencilla aplicacion para mo- 
tores de cassette o de jugue- 
tes electricos. 

— Rutinas utiles para la clasifi- 
cacion de datos (SORT). 

— Descripcion de la PIA. 

— Los convertidores analogico- 
digitales y digital-analogi- 
cos. 

— Nuevos equipos operativos 
de burbujas magneticas para 
la investigacion y las aplica- 
ciones industriales. 

— Los calculos de puentes de 
medida realizados con micro- 
ordenador. 

— VIC-20 y micros PET/CBM. 

— Diseno y simulacion de un 
proyecto con microprocesa- 
dor, desarrollado con el AIM- 
65. 

— Las impresoras. 

— Temporizador programable. 

• Fichas tecnicas de microprocesa- 
dores y de micro-ordenadores 

Para numeros atrasados y para 
suscripcidn anual (1.975 ptas.), 
dirigirse a: 
REDE - Apdo. 35400 - Barcelona 
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COLABORACIONES 




por ERNESTO MARTINEZ 
DE CARVAJAL HEDRICH 



No creemos necesario presentar a ERNESTO dado que 
una colaboracibn suya se publico en el numero cuatro de 
nuestra Revista. Como se puede apreciar en este articulo 
nuestro autor se las ha arreglado para que un personaje de 
nuestra Revista (por cierto: el malo) aparezca en televi- 
sion, lo cual no deja de ser un honor... &no? 



Apreciados conVICtos: 

En mi anterior colaboracion os des- 
cribi un programa (misioneros y cani- 
bales) que utilizaba una serie de ca- 
racteres especiales que representa- 
ban los personajes y demas elemen- 
tos del juego. En dicha ocasion no os 
detalle mas este apartado por no ser 
la intencion del articulo y porque es 
un tema que requiere uno monografi- 
co. En esta ocasion quisiera introdu- 
ces a los que no lo estais, en esta 
faceta apasionante del VIC: la genera- 
cion de caracteres definidos por el 
usuario. 

Una de las innovaciones que pre- 
senta el VIC es la posibilidad de defi- 
nirle caracteres y utilizarlos en pro- 
gramas BASIC. Las aplicaciones de 
esto son diversas. Se puede sustituir 
los caracteres del VIC por aquellos 
propios de una lengua, como el japo- 
nes, el chino o cualquier otro. Se pue- 
de crear una tabla de caracteres elec- 
tronicos, matematicos, etc. Y se pue- 
den crear las mas extrafias criaturas 
de ciencia-ficcion. 

En este articulo explico (o al menos 
intento] la manera de generar este tipo 
de caracteres, a la vez que os presen- 
to un programa que podeis utilizar co- 
mo subrutina de otros para realizar 
esta funcion. Y para ilustrarlo, que 
mejor que utilizar a nuestra mascota 
BUG que, por una vez, nos ayudara en 
lugar de hacer travesuras. 



Ante todo, el necesario y consabido 
repaso de la teoria: 

Se puede considerar que la pantalla 
del VIC [el recuadro interior que apa- 
rece en la pantalla) esta formado por 
puntos elementales. Cada uno de es- 
tos puntos puede estar encendido o 
apagado, entendiendose por apagado 
el color del fondo de la pantalla (espe- 
cificado en la direccion 36879), y por 
encendido de un determinado color 
(contenido en la direccion 38400). Es- 
tos puntos forman un entramado de 
184 lineas por 176 columnas. El con- 
trolador de video monta la imagen 
linea a li'nea y punto a punto, por lo 
que ha de conocer el estado, encen- 
dido o apagado, de cada uno de ellos. 
Este estado se podria codificar con 
un BIT (0 = apagado, 1 = encendido), 
lo cual representaria una informacion 
de 176*184 = 32.384 BITS = 4048 octe- 
tos = 4K, lo cual seria excesivo frente 
a las 5,5 K totales del VIC en su ver- 
sion base. Ha sido necesario buscar 
una solucion mas economica. Para ello 
se agrupan los puntos elementales en 
rectangulos de ocho lineas por ocho 
columnas, llamados mallas. Estas ma- 
llas se reparten en la pantalla en filas 
y columnas. Es preciso distinguir en- 
tre filas y columnas, que podemos lla- 
mar macroscopicas, de las elementa- 
les. La pantalla esta formada por 23 fi- 
las de 22 columnas (macroscopicas). 
La combinacion de caracteres que se 



puede dibujar dentro de una malla es 
bastante limitada: 2*64 = 256, ya que 
hay 64 puntos (8*8) y cada uno puede 
tener dos estados. 

La forma en que se las ingenia el 
VIC para visualizar caracteres es la 
siguiente: 

En una zona de RAM de numero de 
octetos igual al numero de mallas 
de la pantalla (506 para el VIC), se 
introduce el codigo ASCII del caracter 
que ha de visualizar en su correspon- 
diente malla. Si llamamos E a la direc- 
cion de origen de esta zona (7680), la 
direccion en memoria del octeto co- 
rrespondiente a la malla de coordena- 
das XM.YM sera: 

Q = E + 22*YM + XM 

Una segunda memoria, en ROM o 
RAM, contiene la descripcion corres- 
pondiente a cada codigo. Esta memo- 
ria se llama generador de caracteres. 
Hay un octeto por cada caracter. Si 
llamamos G al origen de esta memoria 
(32768 en el VIC al encenderlo), en 
G + 8*R + L se encuentra el octeto que 
es la imagen de la linea elemental L, 
necesaria para dibujar el caracter R. 
Los ocho bits de un octeto indican el 
estado de cada uno de los ocho pun- 
tos de una linea dentro de una malla. 
Asi, por ejemplo, la forma en que el 
VIC guarda la letra A se muestra en 
la tabla de la pagina siguiente. 

Se pueden comprobar estos valores 
ejecutando el siguiente programa: 

10 G = 32768 : REM direccion inicio 

generador 
20 INPUT " caracter a decodificar";R 
30 FORL = OT0 7 
40 PRINT PEEK (G + 8*R + L) 
50 NEXT L 
60 PRINT:PRlNT 
70 GOTO 20 

Esta segunda memoria se puede 
trasladar a una zona RAM y, lo que es 
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mejor, modificarla a nuestra voluntad 
e instruir al VIC para que utilice esta 
nueva tabla para la generacion de los 
caracteres. 

Y llegados a este punto es el mo- 
menta de empezar con nuestro ami- 
guete. Evidentemente no vamos a in- 
tentar dibujarlo utilizando un solo ca- 
racter, ya que esto nos darfa una re- 
solucion muy pobre (64 puntos). La 
idea es trocear a BUG en unidades re- 
presentables en una malla, y despues 
unirlas en la pantalla como si fuese un 
puzzle. Para ello dibujemos a BUG so- 
bre un papel milimetrado (el dibujo 
escogido es el que aparece en el nu- 
mero uno de nuestra Revista para la 
presentation de la mascota), de forma 




FILA 


MALLA 


DIRECCI6N 


ESTADO BITS 


VALOR OCTETO 


1 


ft ft 


32776 


00011000 


2"4+2"3 =24 


2 


ft ic 


32777 


00100100 


2 A 5+2"2 = 36 


3 


ft ft 


32778 


01000010 


2^6 + 2" 1 = 66 


4 


ft * * ft ft ft 


32779 


01111110 


2 "6 + 2 "5 + 2 "4 + 2^3 
+ 2"2 + 2 A 1 = 126 


5 


ft # 


32780 


01000010 


2"6 + 2"1 = 66 


6 


ft ft 


32781 


01000010 


2*6 + 2*1 = 66 


7 


ft ft 


32782 


01000010 


2"6 + 2' , 1 = 66 


8 




32782 


00000000 


= 



que la parte izquierda y superior coin- 
cida con el inicio de un centimetro. 
A continuacion dividamos el dibujo en 
cuadrados de ocho milimetros de lado. 
Cada cuadrado de estos representa 
una malla o un caracter, y cada uno de 
los milimetros cuadrados interiores un 
bit. El resto es facil aunque laborioso: 
hay que calcular el valor de cada uno 
de los ocho octetos de cada caracter 
e introducirlos en el lugar que quere- 
mos modificar. 



DESCRIPC16N DEL PROGRAMA 

La linea 20 del programa inicializa 
los valores de las variables: 

G1 = Inicio generador de caracte- 
res en ROM. 



G2 = Inicio generador de caracte- 
res en RAM (puede tener otros). 

La linea 60 traslada la tabla de ca- 
racteres de la ROM a la RAM. 

Las lineas 1000-1124 son los valores 
de cada uno de los ocho octetos de ca- 
da caracter. El primer valor de cada 
data es el codigo (segun tabla 1 de 
pokes) del caracter a modificar. 

La linea 1510 realiza la modificacion 
de los caracteres segun el valor de 
los datas. 

La linea 1600 protege la tabla de 
caracteres en RAM. 

La linea 2001 modifica el orden de 
la tabla de, generacion de caracteres. 
(Para restituir el valor original pulsar 
RUN/STOP y restore.) 

Las lineas 2005-2070 pintan el dibujo 
en la pantalla. am 



1 PRINT" ■' 


■ POKE36873, 25 




1064 


DRTR 


32 


255, 255, 255, 


255 , 255 , 255 , 255 


10 REM GEHCHRR 




, 255 










20 Gl=32?S8:02-7168:IP=?68e 




1066 


DRTR 


33 


240, 240, 248 


243, 243, 223, 223 


SB FORI=0TO51 


2 ! K=PEEK(G1 + I > ! POKE(82+I > , K 


, 224 










: NEXT I 








1068 


DRTR 


34 


0.0.0,0,0.0, 


0, 


1000 


DRTR 


, .- , , , , , 1 , 1 




1070 


DRTR 


35 


0-0.0, 0.0.0. 


0,0 


1002 


EHTfl 


1,8 


,0,0,0,0,0, 128, 192 




1072 


DRTR 


36 


0,0,0,0,0,0, 


0, 


1004 


DRTFI 


2,0,0,0,0,0,00,0 




1074 


DRTR 


37 


1,3,2,0,0,0 


0,0 


1006 


DflTR 


3, 28, 15,7, 15, S3, 255, 255, 255 


1076 


DRTR 


33 


127, 127, 127 


63 , 48 , 32 ,0,0 


1008 


DRTR 


4 , 0,207", 255 , 254 , 255 , 255 , 255 , 25 


1073 

30 

1080 


DRTR 


39 


255, 255, 255 


255, 254, 126, 30, 


1010 


DRTR 


5,0,1 92 ,0,0, 128, 1 92 ,224,240 


DRTR 


40 


255 , 255 , 255 


255 ,255, S3 , 55 , 7 


1012 


DBTB 


6,0,0,0,0,0,0,0,0 




1082 


DRTR 


41 


255, 255, 255 


254, 254, 240, 0, 


1014 


DRTR 


7,0,0,0,0,0,0,0,0 




1084 


DRTR 


42 


224, 224, 224 


96 ,0,0,0,0 


1016 


DRTR 


3 , , , , , , -■ , 




1086 


DRTR 


43 


0,0,0,0,0,0 


. 


1318 


DRTR 


8,61,63,31,63,31, 255 , 255 , 127 


1088 


DRTR 


44 


0.0.0,0,0,0 


0, 


1020 


DRTR 


10, 


224 , 224 , 240 , 240 , 224 , 224 


224 


1090 


DRTR 


45 


0,0,7,31,31 


25 ,0,0 


. 240 










1092 


DRTR 


46 


0,0, 243, 252. 


254 , 255 , 1 27 , 63 


1822 


DRTR 


1 1 , 


3,7, 15.63, 15,31,63, 1 27 




1 094 


DRTR 


47 


0,0,0,0,7,255,255,243 


1024 
, 240 
1026 


DRTR 


12, 


255 , 255 , 255 , 255 , 252 , 248 . 


24 1 


1096 


DRTR 


48 


62 , 62 , 126, 25 1 , 25 1,247, 255 , 1 


DRTR 


13, 


255,255,255, 255 , 227 , 65 ,73,2 


1098 


DRTR 


49 


7 , 7 , 15, 15, 59, 123, 127, 127 


27 










1 100 


DRTR 


50 


0, 0, 123, 192 


240, 255, 255, 255 


1828 


DRTR 


14, 




255 


1 102 


DRTR 


51 


0,0. 1,3,7, 255 .. 255 , 255 


, 255 










1 104 


DRTR 


52 


0,0, 224, 240, 


243, 254, 254, 250 


1030 


DRTR 


15, 


0,0, 1 , 1 , 192, 192, 192, 224 




1 106 


DRTR 


53 


0,0,0,0,0,0. 


. 


1032 


DRTR 


16, 


124, 252 , 249 ,255, 255 , 255 , 


255 


1 108 


DRTR 


54 


0.0.0.0,0.0 


. 


. 255 










1 1 10 


DRTR 


55 


0,0.0,0.0.0 


0, 


1034 


DRTR 


17, 


0,1 92 , 1 92 , 224 , 224 ,248, 240 , 2 


1112 


DRTR 


56 


224 .0-0,0.0 


0.0.0 


24 










1114 


DRTR 


57 


0,0,0.0,0.0, 


0,0 


1036 


DRTR 


18, 


31,1 27 ,63, 30 ,0,0,0,0 




1116 




53 


0-0.0,0.0.0- 


. 


1038 


DRTR 


18, 


252 , 255 , 63 ,31, 15,3, 1, 1 




1 1 13 


DRTR 


59 


0,0.0,0,0.0, 


0,0 


1040 


DRTR 


20, 




255 


1 120 


DRTR 


60 


63 .0.O. 0.0. 0.0.0 


. 255 










1 122 


DRTR 


61 


0,0,0,0,0,0 


0,0 


1042 


DRTR 


2 1 , 


249 , 255 , 255 , 255 , 255 , 255 , 


255 


1 124 


DRTR 


62 


0.0.0,0.0.0 


0, 


, 255 










1510 


FORI' 


= 0TO62 : RERDC : PR I NTC FnR.T = 0T07 I R 


1044 


DRTR 


22 , 


255, 255, 255, 255, 255, 255, 


255 


ERDK 


POKEG2+ C C*8 ;■ + 3 , K : HEXTJ : HEXT I 


, 255 










1600 


POKE 


52 


28 : POKE 56,23 


1046 


DRTR 


23, 


255 , 255 , 255 , 255 ,255,255, 


255 


2000 






, 255 










2001 


POKE 


36869, 555 




1048 


DRTR 


24, 


1 67 , 207 , 255 , 255 , 252 , 248 , 


240 




K = 63 








, 248 










2010 


FflR I — 1 


TO 7 




1050 


DRTR 


25, 


255 ,255,207, 135,0,0,0,0 






FOR 


I=lTO 9 




1052 


DRTR 


26, 


240,240,224, 192,0,0,0,0 












1054 


DRTR 


27, 


0,0,0,0,0,0,0,0 




2035 


IF K>95 


THEN K=K— 64 




1056 


DRTR 


28 , 


1,2,2,0,0,0, 1, 1 






PR INT CHR* CK); 




1858 


DRTR 


29, 


255 , 127, 127, 255 , 255 , 255 , 


255 


2050 


NEXT 


.T 






, 255 










2060 






1060 


DRTR 


30, 


255 ) 255 ,241, 248 ,252, 255 . 


255 


2070 


NEXT 


I 






, 255 










5080 


OETR* : IFftt=" "THEN2080 


1062 


DRTR 


31 , 


254 , 252 ,248,3,7,255, 255 . 


255 






















RE8BV. 
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CLUBS DE USUARIOS 



el primer Club de Usuarios del VIC-20 
en Barcelona ya esta en marcha 

Confirmando las noticias anticipadas en ediciones anteriores, ha quedado 
constituido el primer Club de Usuarios del VIC-20 en Barcelona. La primera reu- 
nion se celebro, de acuerdo con el programa previsto, en «Sistema» — Balmes, 
434 — Barcelona, Surgieron diversos proyectos que se espera vayan concretan- 
dose en realidades proximas. Las reuniones del Club se celebraran los mierco- 
les, de 18 a 20 horas en «Sistema», Balmes, 434 - Telefono (93) 211 54 40 - Barce- 
lona, a donde pueden dirigirse todos los interesados en las actividades del nuevo 
Club. 



TR U COS 




CONVERSION EN UNA LINER 
RERDV . 



por P. MASATS 



100 IFDTHENR-IHTCD/IS) :H*=NIB*("eiZ345b.' 
R3RBCDEF " .■ 1 -*-D— R* 1 -5 -■ 1 > +H# : D=M i:'JTO 1 b10 
2@a ri = CT : IFHt>""THENFORI»lTOLEH(H*J ■ R = RSC 
< M I D* •' H* .- I ■ 1 > >-48 - D=D* 1 6-»-R+ ■: fi: 3 > *T : NEKT 

CONVERSION DEC I MRU R E I HHR I O 
RERDV . 

JS0 If IF-D l THENR=INT..:D.2> - H* = M I D* < " 1 " - 1+D-R 
*S . 1 ::■ +H* - D = R : GOTO100 

101 FRIHTH* 



Existen serias dudas filosoficas acerca de si un programa puede llamarse asf cuan- 
do esta compuesto de una sola linea pero, de hecho, la ejecucion de la linea 100 del 
siguiente listado nos da en la variable H$ el valor de notacion hexadecimal del valor 
existente en la variable D. Del mismo modo, la linea 200 — ella solita — nos hace la 
conversion contraria. Solo debe tenerse en cuenta que, antes de ejecutarse la linea 
100, la variable H$ debe estar vacia (H$ = ""). Y esto no es todo: sustituyendo los va- 
lores 16 y conformando adecuadamente la cadena de signos de la linea 100, se puede 
realizar la conversion de decimal a cualquier base. En la parte superior se da un ejemplo 
de conversion decimal-binario donde ademas se ilustra el manejo del «programa». 
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• Vendo aplicacion de facturacion con control de representantes, 9 listados, 
6 ficheros, estadisticas, etc., permite copias de seguridad. Configuracion: VIC, 
8K, disco e impresora, 40.000 Ptas. Escribir a Jaime Ameller Pons. General 
Mola, 15, 1? B. CALATAYUD (Zaragoza). 

• Vendo equipo CBM 3032 y 3040 (CPU y Floppy). Interesados llamar a Miguel 
al (93) 300 53 21 de BARCELONA. 

• Vendo interfaz y programa para RTTY y CW para el PET a 1 5 K. Rafael, 
EA3CGK - Avda. Barcelona, 21 , A, 4? 2?. IGUALADA (Barcelona). 

• Se busca experto en VIC-20 para colaborar en la creacion y coordination de 
un Club de Usuarios de VIC en Barcelona. Llamar a Srta. Rosa Romero. Tele- 
fono 211 54 40. 

• Vendo cariucho 16K VIC-20, por 14.000 ptas. Hago programas en Basic de 
Commodore (todas las versiones) bajo encargo. Desearia contactor con usuarios 
de Commodore en la zona de Madrid, para cambio de programas, impresiones, 
pokes especiales, etc... Razon: Francisco Gutierrez. Santiago Rusinol, 12. MA- 
DRID-3. Telef. (91) 253 13 40. Horas comida y cena. 







..MM 






t 



.;■■ 




V3* 



:Sf 



el esquema 
del VIC-20 

P. MASATS 

■■■.■■■■■..■'.' -,■■■'■ .■.■.■■■■.'.■.■,.■■.■■■■ 

mo5 pnrn los despistados v los recien lleqa- 

' ■ 
nidad dt leclores do nueslra Re vista, que 

re'que- 
nos pioblemas rie HARDWARE que tan eno- 
josos son a menudo. Para erapezar pocas co- 
sas hay mejcres que el propio esquema del 

qibili- 
dad lo daremos en Ires partes n partir de 
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?I titu- 

■'to de 
aplicarnoslo a nosotros. Esperamos que esle 
interes se matezialice en un buen numero 

■■ ;uarios 
que se Iracluciran, mediante la correspon- 
diente colabcracion, en arliculos para la Re- 
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biamos olvidado de la paliza de las colabo- 
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Aprovechamos la ocasion para dar algu- 
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siado juntos, pueden producirse errores en 

li crrabacion y lecfura de proqramas causa* 
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ULTIMA HORA 

la segunda parte del 
Curso de Introduction 
al BASIC 



I 



esta a punto 
de aparecer 



En estos momentos se esta termi- 
nando el trabajo de traduccion e im- 
presion de la segunda parte del Curso 
de Introduccion al Lenguaje de Progra- 
macion BASIC, por lo que, en breve 
tiempo, se podra disponer de los pri- 
meros ejemplares. En el proximo nu- 
mero daremos mas detalles. 
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,4 m « <»/ F/C-20 

• Lenguaje BASIC extendido. 

• Sistema operative COMMODORE. 

• 5 K RAM ampliable a 32 K. 

• S6 colores, 4 generadores de sonido. 

• 66 caracteres graficos. 

• Perifericos disponibles: 

- Cassette, 

- Impresora de agujas. 

- Unidad de disco de J 70 K. 

A si hace las cosas el VIC-20 

• Ensr - attca. 



• Efeetua todo tipo de calculos 

>™3.\Kr"Hk.O$. ■'■■1'.':'-tV--k^M 

• Reali/a funciones docentes. 

• Se encarga de multiples tareas 

profesionales, 

• Proporctona divertidos momentos de 

odo. 

• Ayuda a planificar labores domesticas. 

. , . . •■ • Hace todas las aplieaciones 
que Vd. imagine. 
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• MANUAL DELUSUARIO 
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'ROGRAMACION BASK 
• Y 1? PROGRAMAS DE 
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